home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 October / CHIP Ekim 1996.iso / winbatch / wdf-exe.wb_ < prev    next >
Text File  |  1994-08-30  |  1KB  |  35 lines
  1. a1="This WBT file is designed to assist in determining"
  2. a2="the correct WDF File name to use with WinMacro."
  3. a3="Sometimes, some programs are actually loader programs"
  4. a4="for the 'real' application.  WinMacro (and also the"
  5. a5="WinBatch AppWaitClose/AppExist functions) needs to know"
  6. a6="actual exe/wdf names.  This WBT file will display the"
  7. a7="Actual EXE and WDF names."
  8.  
  9. text=strcat(a1,@crlf,a2,@crlf,a3,@crlf,a4,@crlf,a5,@crlf,a6,@crlf,a7)
  10. Message("EXE/WDF Finder",text)
  11.  
  12. text="Put mouse over Window to determine exe/wdf file.%@crlf%Hold Shift Key down to quit the EXE/WDF finder."
  13.  
  14.       
  15.        
  16.    BoxOpen("EXE / WDF FILE FINDER","")
  17.    While @TRUE     ; Loop forever and ever
  18.            if IsKeyDown(@SHIFT) then break
  19.            WinActivate("")
  20.            a=MouseInfo(1)
  21.            exe=WinExeName(a)
  22.            exe2=strcat(FileRoot(exe),".",FileExtension(exe))
  23.            wdf=FileRoot(exe)
  24.            wdf=strcat(wdf,".WDF")
  25.            BoxText(strcat(text,@crlf,@crlf,"EXE = ",exe2,@crlf,"WDF = ",wdf))
  26.            Delay(1)
  27.    endwhile
  28.    exit
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.